home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / nrpas13.arc / MODFILE.PAS < prev    next >
Pascal/Delphi Source File  |  1991-05-01  |  216b  |  5 lines

  1.     TYPE double = real; char12 = string[12];
  2.     FUNCTION sngl(x:real):real; BEGIN sngl := x END;
  3.     PROCEDURE glopen(VAR infile:text; filename:char12);
  4.         BEGIN assign(infile,filename); reset(infile) END;
  5.